﻿Imports Fgv.Framework.UI

Partial Class Default2
    Inherits BasePageAutenticada

    Public Overrides Sub BloqueiaPagina()

    End Sub

    Public Overrides ReadOnly Property MnemonicosAutorizados() As String()
        Get
            Return New String() {"TESTE", "ERRO"}
        End Get
    End Property

    Public Overrides ReadOnly Property PapelAtual() As Fgv.Framework.Seguranca.Dominio.Usuario
        Get

        End Get
    End Property

    Public Overrides ReadOnly Property UsuarioAtual() As Fgv.Framework.Seguranca.Dominio.Usuario
        Get
            Return New Fgv.Framework.Seguranca.Dominio.Usuario
        End Get
    End Property

    Protected Sub Page_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            Me.Page.Form.Visible = False
            Dim _script As String = "NaoAutorizado();"
            Page.ClientScript.RegisterClientScriptBlock(Me.Page.GetType, Guid.NewGuid.ToString, _script, True)
        End If

    End Sub


End Class
